#On suppose qu'on nous transmet l'astéroïde détruire dans l'interface
#En attendant mieux
proc asteroide_detruite {ast} {
	global table_joueurs

    set liste_joueurs [get_asteroide_liste_joueur $ast]
	
    set joueur_principal [lindex $table_joueurs 0 0]
    set_joueur_score joueur_principal [+ [get_joueur_score $joueur_principal] 1 ]
    set table_joueurs [list [lreplace [lindex $table_joueurs 0] 0 0 $joueur_principal]]
	
	if {[llength $liste_joueurs]>1} {
        envoyer_destruction [get_asteroide_numero $ast]
	}
    supprimer_ast [get_asteroide_numero $ast]
}

proc reception_destruction {ast} {
	supprimer_ast [get_asteroide_numero $ast]
}
